home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 23 code / Internet Config.sea / Internet Config / IC 1.1 / ICProgKit1.1 / Examples / IC2Resource / IC2Resource.c next >
Encoding:
C/C++ Source or Header  |  1994-11-29  |  3.6 KB  |  4 lines  |  [TEXT/MMCC]
  2. IC2Resource.cTEXTMMCC ˨´Aâ´AâÅÅ÷¡#include "ICAPI.h"
  3. #include "ICKeys.h"
  4. #include "ICMappings.h"
  5. #include "ICSubs.h"
  6.  
  7. typedef struct {
  8.     unsigned char    extension[6];
  9.     OSType    fType;
  10.     OSType    fCreator;
  11.     short    reserved;
  12. }typeRec;
  13.  
  14. typedef struct {
  15.     short    numTypes;
  16.     typeRec    theTypes[1];
  17. }typeListRec, **typeListRecH;
  18.  
  19. void InitToolbox (void) 
  20. {
  21.     InitGraf ( &qd.thePort );
  22.     InitFonts ();
  23.     InitWindows ();
  24.     InitMenus ();
  25.     TEInit ();
  26.     InitDialogs (NULL);        // use of ResumeProcs no longer approved by Apple
  27.     InitCursor ();
  28.     FlushEvents ( everyEvent, 0 );
  29.     
  30.     // how about some memory fun! Two should be enough!
  31.     MoreMasters ();
  32.     MoreMasters ();
  33. }
  34.  
  35.  
  36. void main(void)
  37. {
  38.     ICInstance        inst;
  39.     ICAttr            attr = 0;
  40.     ICError         err;
  41.     ICMapEntry        entry;
  42.     Handle            mappings = nil;
  43.     long            prefsize = 0;
  44.     typeListRecH    tlrH = nil;
  45.     SFTypeList         typeList;
  46.     StandardFileReply    reply;
  47.     
  48.     InitToolbox();
  49.     
  50.     StandardGetFile(nil, -1, typeList, &reply);    // standardfile.h
  51.     if (!reply.sfGood)    return;
  52.     
  53.     if (!ICStart(&inst, 'ICMa')) {    // init the sucker
  54.         if (!ICFindConfigFile(inst, 0, nil)) {    // locate the config file
  55.             if (!ICBegin(inst, icReadOnlyPerm)) {    // open up the file for reading
  56.                 if (!ICGetPrefHandle(inst, (ConstStr255Param)kICMapping, &attr, &mappings)) {    // get the size
  57.                     long         pos = 0, count, i = 0;
  58.  
  59.                     // first things first - found out how many to preflight memory allocation                    
  60.                     err = ICMCountEntries(mappings, &count);
  61.                     if (!err && count) {
  62.                         tlrH = (typeListRecH)NewHandle(count * sizeof(typeRec) + sizeof(short));
  63.                         if (tlrH) {
  64.                             HLock((Handle)tlrH);
  65.                             (*tlrH)->numTypes = count-1;    // -1 for 0 based count
  66.                             
  67.                             err = ICMGetEntry(mappings, pos, &entry);
  68.                             do {
  69.                                 // copy the info out to the typeListH
  70.                                 BlockMoveData(entry.extension, (*tlrH)->theTypes[i].extension, 6);
  71.                                 (*tlrH)->theTypes[i].fType = entry.file_type;
  72.                                 (*tlrH)->theTypes[i].fCreator = entry.file_creator;
  73.                                 (*tlrH)->theTypes[i].reserved = 1;
  74.                                 
  75.                                 // and get the next one!
  76.                                 i++;
  77.                                 pos += entry.total_length;
  78.                                 err = ICMGetEntry(mappings, pos, &entry);
  79.                             } while (err == noErr);
  80.                             
  81.                             // open up the file and add the resource
  82.                             {
  83.                                 short refNum = FSpOpenResFile(&reply.sfFile, fsRdWrPerm);    // resources.h
  84.                                 Handle    tmpH = Get1Resource('E2Ty', 0);
  85.                                 
  86.                                 if (tmpH) {
  87.                                     SetHandleSize(tmpH, GetHandleSize((Handle)tlrH));
  88.                                     BlockMoveData((Ptr)*tlrH, *tmpH, GetHandleSize((Handle)tlrH));
  89.                                     ChangedResource(tmpH);
  90.                                     WriteResource(tmpH);
  91.                                     DisposHandle((Handle)tlrH);
  92.                                 } else {
  93.                                     AddResource((Handle)tlrH, 'E2Ty', 0, "\p");
  94.                                     WriteResource((Handle)tlrH);
  95.                                     ReleaseResource((Handle)tlrH);
  96.                                 }
  97.                                 CloseResFile(refNum);
  98.                             }
  99.                         } else
  100.                             err = MemError();
  101.                     }
  102.                     
  103.                     DisposHandle(mappings);
  104.                 } else
  105.                     StopAlert(129, 0L);
  106.                 
  107.                 ICEnd(inst);    // all done
  108.             } else
  109.                 StopAlert(129, 0L);
  110.         } else
  111.             StopAlert(129, 0L);
  112.         
  113.         ICStop(inst);            // all done
  114.     } else
  115.         StopAlert(128, 0L);
  116. }
  117. nn>ˇˇˇˇˇˆˆˆˇˇˆˆˆˆˆ+˜ˇˇıˆˆˇ
  118. IC2Resource.cTEXTMMCCTEXTMMCC™€§ß ˨ˆ+˜ˇˇıˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ++˜ˇˇˆ++++++++++++++++++˜˜ˇˇˆ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜¯ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇH    MonacoP ›=P ›=´˚9
  119. ?
  120. CËP ›=P ›=Ënn>`—¯
  121. ˆ>MPSR
  122. ÌˇˇˇˇLc/|